home *** CD-ROM | disk | FTP | other *** search
/ Your Apple Games Gallery 1 / Your Apple Games Gallery (Side A)(MicroSPARC, Inc.)(1988).do / STARTUP.bas < prev    next >
BASIC Source File  |  2021-12-11  |  4KB  |  91 lines
  1. 10  REM  ********************************
  2. 20  REM  *  YOUR APPLE GAMES GALLERY    *
  3. 30  REM  * (C) 1988 BY MicroSPARC, INC. *
  4. 40  REM  *     CONCORD, MA  01742       *
  5. 50  REM  ********************************
  6. 60  ONERR  GOTO 900
  7. 65  TEXT : HOME : RESTORE : PRINT  CHR$(21): GOTO 120
  8. 70  VTAB 24: HTAB 1: PRINT "PRESS RETURN TO GO ON, ESC FOR MENU";: POKE  -16368,0: GET KEY$: PRINT : ON KEY$ =  CHR$(27) GOTO 160: RETURN 
  9. 80  HTAB 20 - LEN(A$)/2: PRINT A$: RETURN 
  10. 90  READ A$: IF A$ < >""  THEN  PRINT A$: PRINT : GOTO 90
  11. 100  RETURN 
  12. 110  VTAB 4: GOSUB 90: GOSUB 70: HOME : RETURN 
  13. 120  VTAB 10:A$ = "WELCOME TO ": GOSUB 80: PRINT 
  14. 130 A$ = "YOUR APPLE GAMES GALLERY": GOSUB 80: PRINT :A$ = "COPYRIGHT(C) 1988": GOSUB 80: PRINT :A$ = "BY MICROSPARC, INC.": GOSUB 80
  15. 140  GOSUB 70: HOME 
  16. 150  INVERSE : VTAB 1:A$ = "YOUR APPLE GAMES GALLERY": GOSUB 80: NORMAL : PRINT : POKE 34,3: GOTO 250
  17. 160  HOME : VTAB 8: HTAB 4: PRINT "1> CATALOG": VTAB 10: HTAB 4: PRINT "2> VIEW INSTRUCIONS": VTAB 12: HTAB 4: PRINT "3> QUIT TO BASIC"
  18. 170  VTAB 16: CALL  -958: PRINT "Your choice: ";: GET KEY$: PRINT :B =  VAL(KEY$)
  19. 180  IF B = 0  THEN 170
  20. 190  ON B GOTO 220,240
  21. 200  PRINT : PRINT "Are you sure? ";: GET KEY$: IF KEY$ = "Y"  OR KEY$ = "y"  THEN  TEXT : HOME : END 
  22. 210  GOTO 160
  23. 220  PRINT  CHR$(4)"CAT": PRINT : GET KEY$: PRINT : GOTO 160
  24. 240  GOTO 60
  25. 250  DATA  This disk contains all of the programs
  26. 260  DATA  from the book. The disk is in ProDOS
  27. 270  DATA  format and there are programs on both
  28. 280  DATA  sides of the disk. The back of the disk
  29. 290  DATA  does not contain the files PRODOS and
  30. 300  DATA  BASIC.SYSTEM.  You must boot your Apple
  31. 310  DATA  with the front side of the disk.
  32. 320  DATA  ""
  33. 330  GOSUB 110
  34. 340  DATA  The programs from pages 1 through 73
  35. 350  DATA  are on side 1. The programs from pages
  36. 360  DATA  77 through 163 are on side 2. Both
  37. 370  DATA  sides of the disk are packed with
  38. 380  DATA  programs.  You should make a copy
  39. 390  DATA  "the disk using System Utilities, "
  40. 400  DATA  "FILER, or any other disk copy program."
  41. 410  DATA  ""
  42. 420  GOSUB 110
  43. 430  DATA  Some programs create new files on the
  44. 440  DATA  disk. So you should make a separate
  45. 450  DATA  disk for each program.
  46. 460  DATA  The files you need for each program
  47. 470  DATA  are listed in the "Program Files"
  48. 480  DATA  section of each article. Copy those
  49. 490  DATA  "files using System Utilities, FILER,"
  50. 500  DATA  or any file copy program.
  51. 510  DATA  ""
  52. 520  GOSUB 110
  53. 530  DATA  "        --> IMPORTANT <--"
  54. 540  DATA   When running programs from Your Apple
  55. 550  DATA  "Games Gallery disk, be sure the CAPS
  56. 560  DATA  "LOCK key is down, and that the text
  57. 570  DATA  screen is set to 40 columns.
  58. 580  DATA  All of the programs run under both
  59. 590  DATA  DOS 3.3 and ProDOS.  To convert a
  60. 600  DATA  "program for use with DOS 3.3, use
  61. 610  DATA  the System Utilities Disk or the
  62. 620  DATA  ProDOS User's Disk.
  63. 630  DATA  ""
  64. 640  GOSUB 110
  65. 650  DATA  To RUN a specific program on this disk
  66. 660  DATA  use the RUN command given in the
  67. 670  DATA  section Playing the Game in that
  68. 680  DATA  game's chapter. Type this command when
  69. 690  DATA  you have the Applesoft prompt (]).
  70. 700  DATA  ""
  71. 710  GOSUB 110
  72. 720  DATA  If you need further assistance
  73. 730  DATA  you can call Nibble Technical Support
  74. 740  DATA  at (508) 371-1669 from 2 to 5 p.m. EST
  75. 750  DATA  or write to:
  76. 760  DATA  "     Nibble Technical Support
  77. 770  DATA  "     52 Domino Drive
  78. 780  DATA  "     Concord, MA 01742
  79. 790  DATA  ""
  80. 800  GOSUB 110
  81. 810  DATA  Remember -- all of the programs on
  82. 820  DATA  this disk are owned by MicroSPARC
  83. 830  DATA  and are copyrighted.
  84. 840  DATA  " "
  85. 850  DATA  UNAUTHORIZED COPYING IS ILLEGAL.
  86. 860  DATA  ""
  87. 870  GOSUB 110
  88. 880  GOTO 160
  89. 890  END 
  90. 900  POKE 216,0:ER =  PEEK(222): IF ER = 0  OR ER >21  THEN  PRINT : PRINT "FATAL APPLESOFT ERROR NO. "ER".": GET K$: PRINT : TEXT : HOME : END 
  91. 910  PRINT : PRINT "PRODOS disk error no. "ER".": PRINT "INSERT DISK AND PRESS RETURN ": GET K$: PRINT : GOTO 160